home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / NU_716.ZIP / NUSCAN.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-07-15  |  5KB  |  214 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     String   STRING001
  23.     String   STRING002
  24.     String   STRING003
  25.     String   STRING004
  26.     String   STRING005
  27.     String   STRING006
  28.     String   STRING007
  29.     String   STRING008
  30.     String   STRING009
  31.     String   STRING010
  32.     String   STRING011
  33.     String   STRING012
  34.     String   STRING013
  35.     String   STRING014
  36.     String   STRING015
  37.     String   STRING016
  38.     String   STRING017
  39.     String   STRING018
  40.  
  41. ;------------------------------------------------------------------------------
  42.  
  43.     FOpen 1, PPEPath() + "NUSCAN.CFG", 0, 0
  44.     FGet 1, STRING007
  45.     FGet 1, STRING008
  46.     FGet 1, STRING009
  47.     FGet 1, STRING010
  48.     FClose 1
  49.     STRING013 = PPEPath() + "!NUSCAN!.Key"
  50.     If (Exist(STRING013)) Goto LABEL001
  51.     Goto LABEL002
  52.     :LABEL001
  53.     FOpen 3, STRING013, 0, 2
  54.     FRead 3, STRING014, 30
  55.     FRead 3, STRING018, 60
  56.     FRead 3, STRING016, 90
  57.     FCloseAll
  58.     :LABEL002
  59.     STRING017 = Len(STRING016) / 2
  60.     STRING015 = String(Asc(Mid(STRING018, STRING017, 3))) + String(Asc(Right(STRING016, 3))) + String(Asc(Mid(STRING016, 4, 8)))
  61.     If (STRING014 <> STRING015) Then
  62.         PrintLn "@X40┌───────────────────────────────────────────────────────────────────────────@X4C┐@X07"
  63.         PrintLn "@X40│            @X4BThis program is an @X4EUNREGISTERED EVALUATION COPY!               @X4C│@X07"
  64.         PrintLn "@X40│    @X4BYou can Register this program by calling the Equinox Support BBS at    @X4C│@X07"
  65.         PrintLn "@X40│                                @X4B312-254-3413                               @X4C│@X07"
  66.         PrintLn "@X40│ @X48══════════════════════ @X4A15 Second Unregistered Delay!@X48 ════════════════════ @X4C│@X07"
  67.         PrintLn "@X40@X40└@X4C───────────────────────────────────────────────────────────────────────────┘@X07"
  68.         Newline
  69.         Delay 18 * 15
  70.     Endif
  71.     INTEGER001 = 100
  72.     STRING004 = "N"
  73.     STRING005 = ReadLine(PCBDat(), 31)
  74.     STRING003 = ReadLine(STRING005, 15)
  75.     STRING001 = FileInf(STRING003, 2)
  76.     INTEGER002 = Left(STRING001, 2) * INTEGER001 + Mid(STRING001, 4, 2)
  77.     GetUser
  78.     STRING002 = U_LDir()
  79.     INTEGER003 = Left(STRING002, 2) * INTEGER001 + Mid(STRING002, 4, 2)
  80.     STRING012 = U_LTime()
  81.     STRING011 = FileInf(STRING003, 3)
  82.     If (INTEGER003 < INTEGER002) Then
  83.         Goto LABEL003
  84.     ElseIf (INTEGER003 > INTEGER002) Then
  85.         Goto LABEL008
  86.     Endif
  87.     :LABEL003
  88.     If (STRING014 == STRING015) Then
  89.         PrintLn 
  90.         PrintLn 
  91.         PrintLn "@X18▌@X17@X10▄┌───────────@X19┐@X10▄@X11▐@X07              @X0BNuScan 7.15ß @X07(tm) Equinox Software"
  92.         PrintLn "@X18▌@X10 │           @X19│@X10 @X11▐@X0D@BOARDNAME:60C@ "
  93.         PrintLn "@X18▌ @X10│ @X1FNew Files @X19│ @X11▐@X01@X07 " + STRING009 + "┌─────────────────────────────────────────────────────────" + STRING010 + "┐@X07"
  94.         PrintLn "@X18▌ @X10│           @X19│ @X11▐@X07 " + STRING009 + "│" + STRING010 + " ┌─────────────────────────────────────────────────────" + STRING009 + "┐" + STRING010 + " │@X07"
  95.         PrintLn "@X18▌ @X10└@X19───────────┘ @X11▐@X01 @X07" + STRING009 + "│" + STRING010 + " │" + STRING007 + "  New Files were uploaded on: " + STRING008 + STRING001 + STRING007 + " at: " + STRING008 + STRING011 + STRING009 + "  │" + STRING010 + " │@X07"
  96.         PrintLn "@X18▌  @X10┌@X17▄▄▄▄▄▄▄▄▄@X19┐  @X11▐@X07 " + STRING009 + "│" + STRING010 + " │" + STRING007 + "  Your last file scan was on: " + STRING008 + STRING002 + STRING007 + " at: " + STRING008 + STRING012 + STRING009 + "  │" + STRING010 + " │@X07"
  97.         PrintLn "@X18▌  @X10│@X17█   @X77█@X17████@X19│  @X11▐@X01@X07 " + STRING009 + "│" + STRING010 + " └" + STRING009 + "─────────────────────────────────────────────────────┘" + STRING010 + " │@X07"
  98.         PrintLn "@X18▌  @X10│@X17█@X07▄▄▄@X77█@X17████@X19│ @X11 ▐@X07 " + STRING009 + "└" + STRING010 + "─────────────────────────────────────────────────────────┘@X07"
  99.         PrintLn "@X08▀▀▀▀@X08▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  100.     Else
  101.         PrintLn 
  102.         PrintLn 
  103.         PrintLn "@X18▌@X17@X10▄┌───────────@X19┐@X10▄@X11▐@X07              @X0BNuScan 7.15ß @X07(tm) Equinox Software"
  104.         PrintLn "@X18▌@X10 │           @X19│@X10 @X11▐@X0D                 @X8EUNREGISTERED EVALUATION COPY@X07"
  105.         PrintLn "@X18▌ @X10│ @X1FNew Files @X19│ @X11▐@X01@X07 " + STRING009 + "┌─────────────────────────────────────────────────────────" + STRING010 + "┐@X07"
  106.         PrintLn "@X18▌ @X10│           @X19│ @X11▐@X07 " + STRING009 + "│" + STRING010 + " ┌─────────────────────────────────────────────────────" + STRING009 + "┐" + STRING010 + " │@X07"
  107.         PrintLn "@X18▌ @X10└@X19───────────┘ @X11▐@X01 @X07" + STRING009 + "│" + STRING010 + " │" + STRING007 + "  New Files were uploaded on: " + STRING008 + STRING001 + STRING007 + " at: " + STRING008 + STRING011 + STRING009 + "  │" + STRING010 + " │@X07"
  108.         PrintLn "@X18▌  @X10┌@X17▄▄▄▄▄▄▄▄▄@X19┐  @X11▐@X07 " + STRING009 + "│" + STRING010 + " │" + STRING007 + "  Your last file scan was on: " + STRING008 + STRING002 + STRING007 + " at: " + STRING008 + STRING012 + STRING009 + "  │" + STRING010 + " │@X07"
  109.         PrintLn "@X18▌  @X10│@X17█   @X77█@X17████@X19│  @X11▐@X01@X07 " + STRING009 + "│" + STRING010 + " └" + STRING009 + "─────────────────────────────────────────────────────┘" + STRING010 + " │@X07"
  110.         PrintLn "@X18▌  @X10│@X17█@X07▄▄▄@X77█@X17████@X19│ @X11 ▐@X07 " + STRING009 + "└" + STRING010 + "─────────────────────────────────────────────────────────┘@X07"
  111.         PrintLn "@X08▀▀▀▀@X08▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  112.         Goto LABEL004
  113.     Endif
  114.     :LABEL004
  115.     InputYN "@X0F@FIRST@, Would you like to @X0Aview @X0Fthe list of new @X0Afiles", STRING004, 7
  116.     STRING004 = Upper(STRING004)
  117.     If (STRING004 == "Y") Goto LABEL005
  118.     If (STRING004 == "N") Goto LABEL008
  119.     End
  120.     :LABEL005
  121.     Newline
  122.     PrintLn 
  123.     PrintLn "@X03Please be aware, that your file statistics will not be upgraded properly"
  124.     PrintLn "unless you view @X0EALL @X03the files added each time."
  125.     PrintLn 
  126.     InputStr "@X0BView the @X0C(@X0EU@X0C)@X0Fpload Directory @X0Bor @X0C(@X0EA@X0C)@X0Fll the directories@X0B", STRING006, 14, 1, Mask_Alpha(), 8
  127.     If (STRING006 == "U") Goto LABEL006
  128.     If (STRING006 == "u") Goto LABEL006
  129.     If (STRING006 == "a") Goto LABEL007
  130.     If (STRING006 == "A") Goto LABEL007
  131.     Goto LABEL008
  132.     :LABEL006
  133.     Dir "N;S;U"
  134.     PrintLn "@PON@"
  135.     Goto LABEL008
  136.     :LABEL007
  137.     Dir "N;S;A"
  138.     PrintLn "@PON@"
  139.     :LABEL008
  140.  
  141. ;------------------------------------------------------------------------------
  142. ;
  143. ; Usage report (before postprocessing)
  144. ;
  145. ; ■ Statements used :
  146. ;
  147. ;    1       End
  148. ;    20      Goto 
  149. ;    14      Let 
  150. ;    34      PrintLn 
  151. ;    11      If 
  152. ;    2       FOpen 
  153. ;    1       FClose 
  154. ;    4       FGet 
  155. ;    1       GetUser
  156. ;    1       InputStr 
  157. ;    1       InputYN 
  158. ;    1       Delay 
  159. ;    2       Newline
  160. ;    2       Dir 
  161. ;    3       FRead 
  162. ;    1       FCloseAll
  163. ;
  164. ;
  165. ; ■ Functions used :
  166. ;
  167. ;    3       *
  168. ;    1       /
  169. ;    118     +
  170. ;    7       ==
  171. ;    1       <>
  172. ;    1       <
  173. ;    1       >
  174. ;    4       !
  175. ;    1       Len(
  176. ;    1       Upper()
  177. ;    4       Mid()
  178. ;    2       Left()
  179. ;    1       Right()
  180. ;    3       Asc()
  181. ;    1       U_LTime()
  182. ;    1       U_LDir()
  183. ;    3       String()
  184. ;    1       Mask_Alpha()
  185. ;    1       PCBDat()
  186. ;    2       PPEPath()
  187. ;    2       ReadLine()
  188. ;    1       Exist()
  189. ;    2       FileInf()
  190. ;
  191. ;------------------------------------------------------------------------------
  192. ;
  193. ; Analysis flags : d
  194. ;
  195. ; d - Access PCBOARD.DAT ■ 2
  196. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  197. ;     for many PPE so they can find various informations on the system
  198. ;     (system paths, max number of lines in messages, ...) but it may also
  199. ;     be a way to gather vital informations.
  200. ;     ■ Search for : PCBDAT()
  201. ;
  202. ;------------------------------------------------------------------------------
  203. ;
  204. ; Postprocessing report
  205. ;
  206. ;    0       For/Next
  207. ;    0       While/EndWhile
  208. ;    4       If/Then or If/Then/Else
  209. ;    0       Select Case
  210. ;
  211. ;------------------------------------------------------------------------------
  212. ;                 AEGiS Corp - Break the routines, code against the machines!
  213. ;------------------------------------------------------------------------------
  214.